home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim6.dem < prev    next >
Text File  |  1999-09-16  |  332b  |  16 lines
  1. kp=xget("pixmap");
  2. if kp=0, xset("pixmap",1);end;
  3.  
  4. n_path="SCI/demos/npend";
  5. getf(n_path+'/macros.sci','c');
  6. getf(n_path+'/dessin.sci','c');
  7. getf('SCI/demos/anim/anim6.sci','c');
  8. n=10;
  9. r=1*ones(1,n);m=1*ones(1,n);j=1*ones(1,n);g=9.81;
  10. y0=0*ones(2*n,1);
  11. yt=read(n_path+'/yt.wrt',20,201);
  12. chaina(yt);
  13.  
  14. if kp=0, xset("pixmap",0);end;
  15.  
  16.